home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 209
/
209.d81
/
european siren
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
584b
|
20 lines
5 poke53280,.:poke53281,.
10 print"[147] [154]press h [154]to hear the siren"
20 print" press q [154]to quit"
30 a=peek(203):ifa=29then100
40 ifa<>62then30
45 d=peek(186):ifd<8thend=8
50 print"[147][144]load"chr$(34)"b.tips and trick"chr$(34)","d
60 print"run":poke631,13:poke632,13:poke198,2:end
100 rem european siren - michael gatto
110 n=5 :rem number of siren blasts
120 s=54272:v=s+24:ad=s+5:sr=s+6:w=s+4
130 poke v,15:poke ad,0:poke sr,240:poke w,33
140 for j=1 to n
150 poke s,52:poke s+1,43:for d=1 to 300:next
160 poke s,75:poke s+1,34:for d=1 to 300:next
170 next j
180 poke w,32:poke v,0
190 run
10000 d=peek(186):n$="european siren":open15,d,15,"s0:"+n$:close15:saven$,d:end